home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / tilt11.sit / Tilt 1.1 / card_9653.txt < prev    next >
Text File  |  1988-11-14  |  2KB  |  119 lines
  1. -- card: 9653 from stack: in.1
  2. -- bmap block id: 10832
  3. -- flags: 4000
  4. -- background id: 2400
  5. -- name: Title Card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global Name
  9.   global Beloved
  10.   put Name into field 2
  11.   put Beloved into field 4
  12. end openCard
  13.  
  14.  
  15.  
  16. -- part 3 (button)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=234 top=278 right=341 bottom=335
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Go Info
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   global Name
  31.   global Beloved
  32.  
  33.   put field 2 into Name
  34.   put field 4 into Beloved
  35.  
  36.   global placeMark
  37.   put 1 into placeMark
  38.   go card 9
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 4 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=334 top=278 right=341 bottom=413
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Go Game
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global Name
  58.   global Beloved
  59.  
  60.   repeat while field 2 = "<your name>"
  61.     ask "What is your name, Noble Sir?"
  62.     put it into field 2
  63.   end repeat
  64.  
  65.   repeat while field 4 = "<your beloved's name>"
  66.     ask "For whose honor dost thou Joust?"
  67.     put it into field 4
  68.   end repeat
  69.  
  70.   put field 2 into Name
  71.   put field 4 into Beloved
  72.  
  73.   Go next
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 5 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=412 top=278 right=341 bottom=478
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Go Pleas/Thanks
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   global Name
  93.   global Beloved
  94.  
  95.   put field 2 into Name
  96.   put field 4 into Beloved
  97.  
  98.   global placeMark
  99.   put 1 into placeMark
  100.   go card 12
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part contents for background part 2
  106. ----- text -----
  107. What Hight Thou, Noble Knight?
  108.  
  109. -- part contents for background part 4
  110. ----- text -----
  111. For Whose Honor Dost Thou Joust?
  112.  
  113. -- part contents for background part 3
  114. ----- text -----
  115. <Your Name>
  116.  
  117. -- part contents for background part 5
  118. ----- text -----
  119. <Your Beloved's Name>